home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / ossxmpls.lha / examples / fib.pl < prev    next >
Encoding:
Text File  |  1992-03-25  |  207 b   |  10 lines
  1. /* Prolog version of fib benchmark */
  2.  
  3. main :- fib(30,N), write(N), nl.
  4.  
  5. fib(N,F) :- N =< 1, F = 1.
  6. fib(N,F) :- N > 1,
  7.         N1 is N - 1, fib(N1,F1),
  8.         N2 is N - 2, fib(N2,F2),
  9.         F is F1 + F2.
  10.